home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / PROGRAMM / DB_CLIPP / 0769A.ZIP / PROPRDMO.PRG < prev    next >
Text File  |  1987-08-28  |  4KB  |  99 lines
  1. LOAD proper
  2. SET TALK OFF
  3. CLEA
  4. TEXT
  5.              ---    This is a demo of PROPER.BIN (OBJ)    ---
  6.  
  7. This is a short demo of the PROPER BIN (OBJ) program.  PROPER can be called 
  8. from FoxPLUS, Clipper, QS, or dBASE III PLUS.  It's a little redundant from QS 
  9. (since it emulates the QS PROPER() function), except that it makes your code a 
  10. little more portable.
  11. PROPER just takes a string of characters (not a field variable, only memvars)
  12. and capitalizes the first character of each word.  It will only capitalize a
  13. letter which follows either a space or a non-alphanumeric character, as does
  14. QS's PROPER function.  In the future I plan to add some enhancements, such as
  15. skipping over words like "a", "an", "the", etc. (except for the first word in 
  16. a phrase), and also special handling for "McAnything" etc.
  17. You LINK the OBJ code to your Clipper application.  You LOAD PROPER.BIN from
  18. dBASE or FOX.  You have a choice with QS--either CCALL PROPER and link it in 
  19. (there goes the portability [grin]) or LOAD the BIN routine just as from dBASE.  
  20. Since dBASE III Plus doesn't support UDF's, for portability reasons the calling
  21. syntax is exactly the same from any of these environments:
  22. CALL Proper WITH <memvar>
  23. Let's test it:
  24. ENDT
  25.  
  26. string=spac(254)
  27. @21,1 SAY 'String to make "proper":' GET string PICT "@S40"
  28. READ
  29. string=TRIM(RTRIM(LOWE(string)))
  30. CALL PROPER WITH string
  31.  
  32. @22,0 SAY "PROPER returns: "+string
  33. WAIT
  34. CLEA
  35.  
  36. TEXT
  37.  
  38. PROPER is written in Turbo C.  Later (enhanced) versions will probably not be 
  39. released as shareware. To get upgrades, etc., subscribe to the Synergy
  40. Utilities.  The Synergy Utilities are a collection of tools for dBASE III
  41. Plus, Quicksilver, Clipper, and FoxBASE+.  Most of these are BIN/OBJ format
  42. utilities.  Some of the other Synergy Utilities are:
  43. ENDT
  44. WAIT
  45. TEXT
  46. CD       get current drive/directory
  47. ENCRYPT  encrypt/decrypt strings
  48. SRCHPATH search DOS path for file
  49. FINDFL   find all files matching a wildcard, return all directory info
  50. NETINFO  get net name (more to come)
  51. MEMCHECK check memory on the system, also how much when dBASE was loaded
  52. DIREXIST check existence of drive/directory
  53. FSIZE    get size of file(s)
  54. CHATTR   change attributes of (files)
  55. SAT      SuperAt(), find every occurrence of a substring in one CALL
  56. HANDLES  Get *true* amount of available file handles
  57. RAND     Random number generator
  58. IN/OUT   Port access
  59. LBMRD    Litebars using UI's MRD.
  60. SOUNDEX  get SOUNDEX codes
  61. DELAY    delay specified number (and fraction) of seconds
  62. VALDRIVE find out all valid drives on system
  63. EQUIP    find out what equipment you're running on
  64. GETCOLOR find out what the color is on the screen now (at cursor position)
  65. LITEBAR  very fast, versatile, portable lightbar menus--also incorporates some
  66.          screen stunts such as save/restore screen, hilite/color/fill/fade
  67.          windows on screen, scroll windows left/right/up/down, etc.
  68. FRM2PRG  convert FRM report files to PRG form for modification/compilation
  69. SINE/COSINE/TANGENT etc.
  70. ENDT
  71. WAIT
  72. CLEA
  73. TEXT
  74. Most of the utilities are available in OBJ form for Clipper CALL and QS CCALL.
  75. Custom modules are a possibility.  If they are considered to be useful for
  76. enough people, no charge!  Eventually I hope to add all the functions in
  77. Rettig's library, C Tools, etc. (and more).  Source code (in assembly
  78. language, C, and Pascal) is available to registered users--also example PRGs
  79. to demonstrate their usage.  At this time documentation is in short supply
  80. <grin>, but I'm working on it.
  81. Once you subscribe, you are a member of the Synergy BBS, and can download
  82. newer versions, get support, etc. through the BBS.
  83.  
  84. To subscribe to the Synergy Utilities, send $75 to:
  85. R. Russell Freeland
  86. Synergy Corp.
  87. 1780 SW 43 Ave.
  88. Ft. Lauderdale, FL 33317
  89. ...enclose $5 extra for shipping and handling if you want a disk mailed to
  90. you.  (Most of the utils are very small, as they are mostly written in
  91. assembly language, so download time is minimal.)
  92.  
  93. Good luck with PROPER, I hope you enjoy it.
  94. R. Russell Freeland
  95. 8/28/1987
  96. CIS 76146,371
  97. ENDT
  98. WAIT
  99. RETU